/*
 * $Id: json_tokener.c,v 1.20 2006/07/25 03:24:50 mclark Exp $
 *
 * Copyright (c) 2004, 2005 Metaparadigm Pte. Ltd.
 * Michael Clark <michael@metaparadigm.com>
 *
 * This library is free software; you can redistribute it and/or modify
 * it under the terms of the MIT license. See COPYING for details.
 *
 *
 * Copyright (c) 2008-2009 Yahoo! Inc.  All rights reserved.
 * The copyrights to the contents of this file are licensed under the MIT License
 * (http://www.opensource.org/licenses/mit-license.php)
 */

#include <stdio.h>
#include <stdlib.h>
#include <stddef.h>
#include <ctype.h>
#include <string.h>

#include "bits.h"
#include "debug.h"
#include "printbuf.h"
#include "arraylist.h"
#include "json_object.h"
#include "json_tokener.h"

#define HAVE_STRNCASECMP 1

#if !HAVE_STRNCASECMP && defined(_MSC_VER)
/* MSC has the version as _strnicmp */
# define strncasecmp _strnicmp
#elif !HAVE_STRNCASECMP
# error You do not have strncasecmp on your system.
#endif /* HAVE_STRNCASECMP */

//#define MC_DEBUG printf

static const char* json_null_str = "null";
static const char* json_true_str = "true";
static const char* json_false_str = "false";

const char* json_tokener_errors[] = {
    "success",
    "continue",
    "nesting to deep",
    "unexpected end of data",
    "unexpected character",
    "null expected",
    "boolean expected",
    "number expected",
    "array value separator ',' expected",
    "quoted object property name expected",
    "object property name separator ':' expected",
    "object value separator ',' expected",
    "invalid string sequence",
    "expected comment",
};

const char* json_tokener_states[] = {
    "json_tokener_state_eatws",
    "json_tokener_state_start",
    "json_tokener_state_finish",
    "json_tokener_state_null",
    "json_tokener_state_comment_start",
    "json_tokener_state_comment",
    "json_tokener_state_comment_eol",
    "json_tokener_state_comment_end",
    "json_tokener_state_string",
    "json_tokener_state_string_escape",
    "json_tokener_state_escape_unicode",
    "json_tokener_state_boolean",
    "json_tokener_state_number",
    "json_tokener_state_array",
    "json_tokener_state_array_add",
    "json_tokener_state_array_sep",
    "json_tokener_state_object_field_start",
    "json_tokener_state_object_field",
    "json_tokener_state_object_field_end",
    "json_tokener_state_object_value",
    "json_tokener_state_object_value_add",
    "json_tokener_state_object_sep"
};


struct json_tokener* json_tokener_new(void) {
    struct json_tokener *tok;

    tok = (struct json_tokener*)calloc(1, sizeof(struct json_tokener));
    if(!tok) return NULL;
    tok->pb = printbuf_new();
    json_tokener_reset(tok);
    return tok;
}

void json_tokener_free(struct json_tokener *tok)
{
    json_tokener_reset(tok);
    if(tok) printbuf_free(tok->pb);
    free(tok);
}

static void json_tokener_reset_level(struct json_tokener *tok, int depth)
{
    tok->stack[depth].state = json_tokener_state_eatws;
    tok->stack[depth].saved_state = json_tokener_state_start;
    json_object_put(tok->stack[depth].current);
    tok->stack[depth].current = NULL;
    free(tok->stack[depth].obj_field_name);
    tok->stack[depth].obj_field_name = NULL;
}

void json_tokener_reset(struct json_tokener *tok)
{
    int i;
    if(!tok)
        return;

    for(i = tok->depth; i >= 0; i--)
        json_tokener_reset_level(tok, i);
    tok->depth = 0;
    tok->err = json_tokener_success;
}

struct json_object* json_tokener_parse(const char *str) {
    struct json_tokener* tok;
    struct json_object* obj;

    tok = json_tokener_new();
    obj = json_tokener_parse_ex(tok, str, -1);
    if(tok->err != json_tokener_success)
        obj = NULL;
    //obj = (struct json_object*)error_ptr(-tok->err);
    json_tokener_free(tok);
    return obj;
}


#if  !defined (HAVE_STRNDUP) && !defined (HUAWEI_C10)
/* CAW: compliant version of strndup() */
char* strndup(const char* str, size_t n)
{
    if(str) {
        size_t len = strlen(str);
        size_t nn = json_min(len, n);
        char* s = (char*)malloc(sizeof(char) * (nn + 1));

        if(s) {
            memcpy(s, str, nn);
            s[nn] = '\0';
        }

        return s;
    }

    return NULL;
}
#endif


#define state  tok->stack[tok->depth].state
#define saved_state  tok->stack[tok->depth].saved_state
#define current tok->stack[tok->depth].current
#define obj_field_name tok->stack[tok->depth].obj_field_name

/* Optimization:
 * json_tokener_parse_ex() consumed a lot of CPU in its main loop,
 * iterating character-by character.  A large performance boost is
 * achieved by using tighter loops to locally handle units such as
 * comments and strings.  Loops that handle an entire token within
 * their scope also gather entire strings and pass them to
 * printbuf_memappend() in a single call, rather than calling
 * printbuf_memappend() one char at a time.
 *
 * POP_CHAR() and ADVANCE_CHAR() macros are used for code that is
 * common to both the main loop and the tighter loops.
 */

/* POP_CHAR(dest, tok) macro:
 *   Not really a pop()...peeks at the current char and stores it in dest.
 *   Returns 1 on success, sets tok->err and returns 0 if no more chars.
 *   Implicit inputs:  str, len vars
 */
#define POP_CHAR(dest, tok)                                                  \
  (((tok)->char_offset == len) ?                                          \
   (((tok)->depth == 0 && state == json_tokener_state_eatws && saved_state == json_tokener_state_finish) ? \
    (((tok)->err = json_tokener_success), 0)                              \
    :                                                                   \
    (((tok)->err = json_tokener_continue), 0)                             \
    ) :                                                                 \
   (((dest) = *str), 1)                                                 \
   )

/* ADVANCE_CHAR() macro:
 *   Incrementes str & tok->char_offset.
 *   For convenience of existing conditionals, returns the old value of c (0 on eof)
 *   Implicit inputs:  c var
 */
#define ADVANCE_CHAR(str, tok) \
  ( ++(str), ((tok)->char_offset)++, c)

/* End optimization macro defs */


struct json_object* json_tokener_parse_ex(struct json_tokener *tok,
        const char *str, int len) {
    struct json_object *obj = NULL;
    char c = '\1';

    tok->char_offset = 0;
    tok->err = json_tokener_success;

    while(POP_CHAR(c, tok)) {
        MC_DEBUG("##[%d]## get char %c\n", __LINE__, c);
redo_char:
        //MC_DEBUG("##################################[%d]## state:%s, savestate:%s\n", __LINE__, json_tokener_states[state], json_tokener_states[saved_state]);
        switch(state) {

        case json_tokener_state_eatws:
            MC_DEBUG("##################################[%d]## json_tokener_state_eatws, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            /* Advance until we change state */
            while(isspace(c)) {
                if((!ADVANCE_CHAR(str, tok)) || (!POP_CHAR(c, tok)))
                    goto out;
            }
            if(c == '/') {
                printbuf_reset(tok->pb);
                printbuf_memappend_fast(tok->pb, &c, 1);
                state = json_tokener_state_comment_start;
                MC_DEBUG("##[%d]## comment_start\n", __LINE__, c);
            } else {
                state = saved_state;
                MC_DEBUG("##[%d]## redo_char\n", __LINE__, c);
                goto redo_char;
            }
            break;

        case json_tokener_state_start:
            MC_DEBUG("##################################[%d]## json_tokener_state_start, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            switch(c) {
            case '{':
                state = json_tokener_state_eatws;
                saved_state = json_tokener_state_object_field_start;
                current = json_object_new_object();
                break;
            case '[':
                state = json_tokener_state_eatws;
                saved_state = json_tokener_state_array;
                current = json_object_new_array();
                MC_DEBUG("##[%d]## \n", __LINE__);
                break;
            case 'N':
            case 'n':
                state = json_tokener_state_null;
                printbuf_reset(tok->pb);
                tok->st_pos = 0;
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto redo_char;
            case '"':
            case '\'':
                state = json_tokener_state_string;
                printbuf_reset(tok->pb);
                tok->quote_char = c;
                MC_DEBUG("##[%d]## \n", __LINE__);
                break;
            case 'T':
            case 't':
            case 'F':
            case 'f':
                state = json_tokener_state_boolean;
                printbuf_reset(tok->pb);
                tok->st_pos = 0;
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto redo_char;
            case '0':
            case '1':
            case '2':
            case '3':
            case '4':
            case '5':
            case '6':
            case '7':
            case '8':
            case '9':
            case '-':
                state = json_tokener_state_number;
                printbuf_reset(tok->pb);
                tok->is_double = 0;
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto redo_char;
            case ',':					//zp, 2011.4.8   ",startTime:,endTime:,"
                saved_state = json_tokener_state_finish;
                state = json_tokener_state_eatws;
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto redo_char;
            default:
                tok->err = json_tokener_error_parse_unexpected;
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto out;
            }
            break;

        case json_tokener_state_finish:
            MC_DEBUG("##################################[%d]## json_tokener_state_finish, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            if(tok->depth == 0) goto out;
            obj = json_object_get(current);
            json_tokener_reset_level(tok, tok->depth);
            tok->depth--;
            MC_DEBUG("##################################[%d]## state:%s, savestate:%s\n", __LINE__, json_tokener_states[state], json_tokener_states[saved_state]);;
            goto redo_char;

        case json_tokener_state_null:
            MC_DEBUG("##################################[%d]## json_tokener_state_null, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            printbuf_memappend_fast(tok->pb, &c, 1);
            if(strncasecmp(json_null_str, tok->pb->buf,
                           json_min(tok->st_pos + 1, strlen(json_null_str))) == 0) {
                if(tok->st_pos == strlen(json_null_str)) {
                    current = NULL;
                    saved_state = json_tokener_state_finish;
                    state = json_tokener_state_eatws;
                    MC_DEBUG("##[%d]## \n", __LINE__);
                    goto redo_char;
                }
                MC_DEBUG("##[%d]## \n", __LINE__);
            } else {
                tok->err = json_tokener_error_parse_null;
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto out;
            }
            tok->st_pos++;
            MC_DEBUG("##[%d]## \n", __LINE__);
            break;

        case json_tokener_state_comment_start:
            MC_DEBUG("##################################[%d]## json_tokener_state_comment_start, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            if(c == '*') {
                state = json_tokener_state_comment;
                MC_DEBUG("##[%d]## \n", __LINE__);
            } else if(c == '/') {
                state = json_tokener_state_comment_eol;
                MC_DEBUG("##[%d]## \n", __LINE__);
            } else {
                tok->err = json_tokener_error_parse_comment;
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto out;
            }
            printbuf_memappend_fast(tok->pb, &c, 1);
            MC_DEBUG("##[%d]## \n", __LINE__);
            break;

        case json_tokener_state_comment:
            MC_DEBUG("##################################[%d]## json_tokener_state_comment, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            {
                /* Advance until we change state */
                const char *case_start = str;
                while(c != '*') {
                    if(!ADVANCE_CHAR(str, tok) || !POP_CHAR(c, tok)) {
                        printbuf_memappend_fast(tok->pb, case_start, str - case_start);
                        goto out;
                    }
                }
                printbuf_memappend_fast(tok->pb, case_start, 1 + str - case_start);
                state = json_tokener_state_comment_end;
                MC_DEBUG("##[%d]## \n", __LINE__);
            }
            break;

        case json_tokener_state_comment_eol:
            MC_DEBUG("##################################[%d]## json_tokener_state_comment_eol, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            {
                /* Advance until we change state */
                const char *case_start = str;
                while(c != '\n') {
                    if(!ADVANCE_CHAR(str, tok) || !POP_CHAR(c, tok)) {
                        printbuf_memappend_fast(tok->pb, case_start, str - case_start);
                        MC_DEBUG("##[%d]## \n", __LINE__);
                        goto out;
                    }
                }
                printbuf_memappend_fast(tok->pb, case_start, str - case_start);
                MC_DEBUG("json_tokener_comment: %s\n", tok->pb->buf);
                state = json_tokener_state_eatws;
                MC_DEBUG("##[%d]## \n", __LINE__);
            }
            break;

        case json_tokener_state_comment_end:
            MC_DEBUG("##################################[%d]## json_tokener_state_comment_end, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            printbuf_memappend_fast(tok->pb, &c, 1);
            if(c == '/') {
                MC_DEBUG("json_tokener_comment: %s\n", tok->pb->buf);
                state = json_tokener_state_eatws;
            } else {
                state = json_tokener_state_comment;
            }
            MC_DEBUG("##[%d]## \n", __LINE__);
            break;

        case json_tokener_state_string:
            MC_DEBUG("##################################[%d]## json_tokener_state_string, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            {
                /* Advance until we change state */
                const char *case_start = str;
                while(1) {
                    if(c == tok->quote_char) {
                        printbuf_memappend_fast(tok->pb, case_start, str - case_start);
                        current = json_object_new_string(tok->pb->buf);
                        saved_state = json_tokener_state_finish;
                        state = json_tokener_state_eatws;
                        MC_DEBUG("##[%d]## \n", __LINE__);
                        break;
                    }
                    /*	//zp ,2011.5.18
                    if(c == '}') {	//zp, 2011.3.26 : {mediaUrl='xxxxxx}
                      printbuf_memappend_fast(tok->pb, case_start, str-case_start);
                      current = json_object_new_string(tok->pb->buf);
                      saved_state = json_tokener_state_finish;
                      state = json_tokener_state_eatws;
                      MC_DEBUG("##[%d]## \n", __LINE__);
                      goto redo_char;
                    }
                    */
                    else if(c == '\\') {
                        printbuf_memappend_fast(tok->pb, case_start, str - case_start);
                        saved_state = json_tokener_state_string;
                        state = json_tokener_state_string_escape;
                        MC_DEBUG("##[%d]## \n", __LINE__);
                        break;
                    }
                    if(!ADVANCE_CHAR(str, tok) || !POP_CHAR(c, tok)) {
                        printbuf_memappend_fast(tok->pb, case_start, str - case_start);
                        MC_DEBUG("##[%d]## \n", __LINE__);
                        goto out;
                    }
                }
            }
            break;

        case json_tokener_state_string_escape:
            MC_DEBUG("##################################[%d]## json_tokener_state_string_escape, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            switch(c) {
            case '"':
            case '\\':
            case '/':
                printbuf_memappend_fast(tok->pb, &c, 1);
                state = saved_state;
                MC_DEBUG("##[%d]## \n", __LINE__);
                break;
            case 'b':
            case 'n':
            case 'r':
            case 't':
                if(c == 'b') printbuf_memappend_fast(tok->pb, "\b", 1);
                else if(c == 'n') printbuf_memappend_fast(tok->pb, "\n", 1);
                else if(c == 'r') printbuf_memappend_fast(tok->pb, "\r", 1);
                else if(c == 't') printbuf_memappend_fast(tok->pb, "\t", 1);
                state = saved_state;
                MC_DEBUG("##[%d]## \n", __LINE__);
                break;
            case 'u':
                tok->ucs_char = 0;
                tok->st_pos = 0;
                state = json_tokener_state_escape_unicode;
                MC_DEBUG("##[%d]## \n", __LINE__);
                break;
            default:
                tok->err = json_tokener_error_parse_string;
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto out;
            }
            break;

        case json_tokener_state_escape_unicode:
            MC_DEBUG("##################################[%d]## json_tokener_state_escape_unicode, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            /* Note that the following code is inefficient for handling large
            * chunks of extended chars, calling printbuf_memappend() once
            * for each multi-byte character of input.
            * This is a good area for future optimization.
            */
            {
                /* Advance until we change state */
                while(1) {
                    if(strchr(json_hex_chars, c)) {
                        tok->ucs_char += ((unsigned int)hexdigit(c) << ((3 - tok->st_pos++) * 4));
                        if(tok->st_pos == 4) {
                            unsigned char utf_out[3];
                            if(tok->ucs_char < 0x80) {
                                utf_out[0] = tok->ucs_char;
                                printbuf_memappend_fast(tok->pb, (char*)utf_out, 1);
                                MC_DEBUG("##[%d]## \n", __LINE__);
                            } else if(tok->ucs_char < 0x800) {
                                utf_out[0] = 0xc0 | (tok->ucs_char >> 6);
                                utf_out[1] = 0x80 | (tok->ucs_char & 0x3f);
                                printbuf_memappend_fast(tok->pb, (char*)utf_out, 2);
                                MC_DEBUG("##[%d]## \n", __LINE__);
                            } else {
                                utf_out[0] = 0xe0 | (tok->ucs_char >> 12);
                                utf_out[1] = 0x80 | ((tok->ucs_char >> 6) & 0x3f);
                                utf_out[2] = 0x80 | (tok->ucs_char & 0x3f);
                                printbuf_memappend_fast(tok->pb, (char*)utf_out, 3);
                                MC_DEBUG("##[%d]## \n", __LINE__);
                            }
                            state = saved_state;
                            MC_DEBUG("##[%d]## \n", __LINE__);
                            break;
                        }
                    } else {
                        tok->err = json_tokener_error_parse_string;
                        MC_DEBUG("##[%d]## \n", __LINE__);
                        goto out;
                    }
                    if(!ADVANCE_CHAR(str, tok) || !POP_CHAR(c, tok))
                        goto out;
                }
            }
            break;

        case json_tokener_state_boolean:
            MC_DEBUG("##################################[%d]## json_tokener_state_boolean, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            printbuf_memappend_fast(tok->pb, &c, 1);
            if(strncasecmp(json_true_str, tok->pb->buf,
                           json_min(tok->st_pos + 1, strlen(json_true_str))) == 0) {
                if(tok->st_pos == strlen(json_true_str)) {
                    current = json_object_new_boolean(1);
                    saved_state = json_tokener_state_finish;
                    state = json_tokener_state_eatws;
                    MC_DEBUG("##[%d]## \n", __LINE__);
                    goto redo_char;
                }
            } else if(strncasecmp(json_false_str, tok->pb->buf,
                                  json_min(tok->st_pos + 1, strlen(json_false_str))) == 0) {
                if(tok->st_pos == strlen(json_false_str)) {
                    current = json_object_new_boolean(0);
                    saved_state = json_tokener_state_finish;
                    state = json_tokener_state_eatws;
                    MC_DEBUG("##[%d]## \n", __LINE__);
                    goto redo_char;
                }
            } else {
                tok->err = json_tokener_error_parse_boolean;
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto out;
            }
            tok->st_pos++;
            MC_DEBUG("##[%d]## \n", __LINE__);
            break;

        case json_tokener_state_number:
            MC_DEBUG("##################################[%d]## json_tokener_state_number, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            {
                /* Advance until we change state */
                const char *case_start = str;
                int case_len = 0;
                while(c && strchr(json_number_chars, c)) {
                    ++case_len;
                    if(c == '.' || c == 'e') tok->is_double = 1;
                    if(!ADVANCE_CHAR(str, tok) || !POP_CHAR(c, tok)) {
                        printbuf_memappend_fast(tok->pb, case_start, case_len);
                        MC_DEBUG("##[%d]## \n", __LINE__);
                        goto out;
                    }
                }
                if(case_len > 0)
                    printbuf_memappend_fast(tok->pb, case_start, case_len);
            }
            {
                int numi;
                double numd;
                if(!tok->is_double && sscanf(tok->pb->buf, "%d", &numi) == 1) {
                    current = json_object_new_int(numi);
                    MC_DEBUG("##[%d]## \n", __LINE__);
                } else if(tok->is_double && sscanf(tok->pb->buf, "%lf", &numd) == 1) {
                    current = json_object_new_double(numd);
                    MC_DEBUG("##[%d]## \n", __LINE__);
                } else {
                    tok->err = json_tokener_error_parse_number;
                    MC_DEBUG("##[%d]## \n", __LINE__);
                    goto out;
                }
                saved_state = json_tokener_state_finish;
                state = json_tokener_state_eatws;
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto redo_char;
            }
            break;

        case json_tokener_state_array:
            MC_DEBUG("##################################[%d]## json_tokener_state_array, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            if(c == ']') {
                saved_state = json_tokener_state_finish;
                state = json_tokener_state_eatws;
                MC_DEBUG("##[%d]## \n", __LINE__);
            } else {
                if(tok->depth >= JSON_TOKENER_MAX_DEPTH - 1) {
                    tok->err = json_tokener_error_depth;
                    MC_DEBUG("##[%d]## \n", __LINE__);
                    goto out;
                }
                state = json_tokener_state_array_add;
                tok->depth++;
                json_tokener_reset_level(tok, tok->depth);
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto redo_char;
            }
            break;

        case json_tokener_state_array_add:
            MC_DEBUG("##################################[%d]## json_tokener_state_array_add, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            json_object_array_add(current, obj);
            saved_state = json_tokener_state_array_sep;
            state = json_tokener_state_eatws;
            MC_DEBUG("##[%d]## \n", __LINE__);
            goto redo_char;

        case json_tokener_state_array_sep:
            MC_DEBUG("##################################[%d]## json_tokener_state_array_sep, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            if(c == ']') {
                saved_state = json_tokener_state_finish;
                state = json_tokener_state_eatws;
                MC_DEBUG("##[%d]## \n", __LINE__);
            } else if(c == ',') {
                saved_state = json_tokener_state_array;
                state = json_tokener_state_eatws;
                MC_DEBUG("##[%d]## \n", __LINE__);
            } else {
                tok->err = json_tokener_error_parse_array;
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto out;
            }
            break;

        case json_tokener_state_object_field_start:
            MC_DEBUG("##################################[%d]## json_tokener_state_object_field_start, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            if(c == '}') {
                saved_state = json_tokener_state_finish;
                state = json_tokener_state_eatws;
                MC_DEBUG("##[%d]## \n", __LINE__);
            } else if(c == '"' || c == '\'') {
                tok->quote_char = c;
                printbuf_reset(tok->pb);
                state = json_tokener_state_object_field;
                MC_DEBUG("##[%d]## \n", __LINE__);
            } else if(c == ',') {	//zp, 2011.4.9  case {media:'xxx',,mediacode:xx};
                MC_DEBUG("##[%d]## empty pair\n", __LINE__);
            } else {
                //tok->err = json_tokener_error_parse_object_key_name;
                tok->quote_char = '$';					//zp, 2011.3.15, $ means no '\'' or '\"'
                printbuf_reset(tok->pb);
                state = json_tokener_state_object_field;
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto redo_char;
                //goto out;
            }
            break;

        case json_tokener_state_object_field:
            MC_DEBUG("##################################[%d]## json_tokener_state_object_field, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            {
                /* Advance until we change state */
                const char *case_start = str;
                while(1) {
                    if(tok->quote_char != '$' && c == ':') {	//zp, 2011.3.23
                        printbuf_memappend_fast(tok->pb, case_start, str - case_start);
                        obj_field_name = strdup(tok->pb->buf);
                        MC_DEBUG("########[%d]########## object name:%s\n", __LINE__, obj_field_name);
                        saved_state = json_tokener_state_object_field_end;
                        state = json_tokener_state_eatws;
                        MC_DEBUG("##[%d]## \n", __LINE__);
                        goto redo_char;
                    } else if(tok->quote_char != '$' && c == tok->quote_char) {
                        printbuf_memappend_fast(tok->pb, case_start, str - case_start);
                        obj_field_name = strdup(tok->pb->buf);
                        MC_DEBUG("########[%d]########## object name:%s\n", __LINE__, obj_field_name);
                        saved_state = json_tokener_state_object_field_end;
                        state = json_tokener_state_eatws;
                        MC_DEBUG("##[%d]## \n", __LINE__);
                        break;
                    } else if(tok->quote_char == '$') {           //zp, 2011.3.15
                        if(c == ' ' || c == '"') {
                            printbuf_memappend_fast(tok->pb, case_start, str - case_start);
                            obj_field_name = strdup(tok->pb->buf);
                            saved_state = json_tokener_state_object_field_end;
                            state = json_tokener_state_eatws;
                            MC_DEBUG("##[%d]## \n", __LINE__);
                            break;
                        } else if(c == ':') {
                            printbuf_memappend_fast(tok->pb, case_start, str - case_start);
                            obj_field_name = strdup(tok->pb->buf);
                            MC_DEBUG("########[%d]########## object name:%s\n", __LINE__, obj_field_name);
                            saved_state = json_tokener_state_object_field_end;
                            state = json_tokener_state_eatws;
                            MC_DEBUG("##[%d]## \n", __LINE__);
                            goto redo_char;
                        }
                    } else if(c == '\\') {
                        printbuf_memappend_fast(tok->pb, case_start, str - case_start);
                        saved_state = json_tokener_state_object_field;
                        state = json_tokener_state_string_escape;
                        MC_DEBUG("##[%d]## \n", __LINE__);
                        break;
                    }
                    if(!ADVANCE_CHAR(str, tok) || !POP_CHAR(c, tok)) {
                        printbuf_memappend_fast(tok->pb, case_start, str - case_start);
                        MC_DEBUG("##[%d]## \n", __LINE__);
                        goto out;
                    }
                    //MC_DEBUG("##[%d]## get string: %c\n", __LINE__, c);
                }
            }
            break;

        case json_tokener_state_object_field_end:
            MC_DEBUG("##################################[%d]## json_tokener_state_object_field_end, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            if(c == ':') {
                saved_state = json_tokener_state_object_value;
                state = json_tokener_state_eatws;
                MC_DEBUG("##[%d]## \n", __LINE__);
            } else {
                tok->err = json_tokener_error_parse_object_key_sep;
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto out;
            }
            break;

        case json_tokener_state_object_value:
            MC_DEBUG("##################################[%d]## json_tokener_state_object_value, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            if(tok->depth >= JSON_TOKENER_MAX_DEPTH - 1) {
                tok->err = json_tokener_error_depth;
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto out;
            }
            state = json_tokener_state_object_value_add;
            tok->depth++;
            json_tokener_reset_level(tok, tok->depth);
            MC_DEBUG("##[%d]## \n", __LINE__);
            goto redo_char;

        case json_tokener_state_object_value_add:
            MC_DEBUG("##################################[%d]## json_tokener_state_object_value_add, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            json_object_object_add(current, obj_field_name, obj);
            free(obj_field_name);
            obj_field_name = NULL;
            saved_state = json_tokener_state_object_sep;
            state = json_tokener_state_eatws;
            MC_DEBUG("##[%d]## \n", __LINE__);
            goto redo_char;

        case json_tokener_state_object_sep:
            MC_DEBUG("##################################[%d]## json_tokener_state_object_sep, savestate:%s\n", __LINE__, json_tokener_states[saved_state]);
            if(c == '}') {
                saved_state = json_tokener_state_finish;
                state = json_tokener_state_eatws;
                MC_DEBUG("##[%d]## \n", __LINE__);
            } else if(c == ',') {
                saved_state = json_tokener_state_object_field_start;
                state = json_tokener_state_eatws;
                MC_DEBUG("##[%d]## \n", __LINE__);
            } else {
                tok->err = json_tokener_error_parse_object_value_sep;
                MC_DEBUG("##[%d]## \n", __LINE__);
                goto out;
            }
            break;

        }
        if(!ADVANCE_CHAR(str, tok))
            goto out;
    } /* while(POP_CHAR) */

out:
    if(!c) {  /* We hit an eof char (0) */
        if(state != json_tokener_state_finish &&
           saved_state != json_tokener_state_finish)
            tok->err = json_tokener_error_parse_eof;
        MC_DEBUG("##[%d]## \n", __LINE__);
    }

    if(tok->err == json_tokener_success) return json_object_get(current);
    MC_DEBUG("json_tokener_parse_ex: error %s at offset %d\n", json_tokener_errors[tok->err], tok->char_offset);
    return NULL;
}
